From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 27 May 1994 09:11:50 +0000 (+0000)
Subject: (gnus-summary-catchup): Check gnus-interactive-catchup.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~91357
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=7781a817ad3f15566a9ec32f83bbbea212391406;p=emacs.git

(gnus-summary-catchup): Check gnus-interactive-catchup.
(gnus-summary-catchup-and-exit): Likewise.
---

diff --git a/lisp/gnus.el b/lisp/gnus.el
index b7ad1d37903..e32eb67a36c 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -3940,6 +3940,7 @@ Optional argument FOLDER specifies folder name."
 If prefix argument ALL is non-nil, all articles are marked as read."
   (interactive "P")
   (if (or quietly
+	  (not gnus-interactive-catchup) ;Without confirmation?
 	  (y-or-n-p
 	   (if all
 	       "Do you really want to mark everything as read? "
@@ -3966,6 +3967,7 @@ If prefix argument ALL is non-nil, all articles are marked as read."
 If prefix argument ALL is non-nil, all articles are marked as read."
   (interactive "P")
   (if (or quietly
+	  (not gnus-interactive-catchup) ;Without confirmation?
 	  (y-or-n-p
 	   (if all
 	       "Do you really want to mark everything as read? "